home *** CD-ROM | disk | FTP | other *** search
- .KEY FILENAME/A,MODE,KAT/A,P1,P2
- .BRA {
- .KET }
-
- ; CWISENV by Tamio Patrick Honma
-
- cd ENV:CWIS/{KAT}/
- IF {P1} NOT EQ ""
- cd >NIL: {P1}
- ENDIF
- IF {P2} NOT EQ ""
- cd >NIL: {P2}
- ENDIF
- assign ENVDir: ""
-
- cd ENVARC:CWIS/{KAT}/
- IF {P1} NOT EQ ""
- cd >NIL: {P1}
- ENDIF
- IF {P2} NOT EQ ""
- cd >NIL: {P2}
- ENDIF
- assign ENVARCDir: ""
-
- IF {MODE} EQ "ENT"
- delete ENVDir:{FILENAME} ENVARCDir:{FILENAME}
- ELSE
- IF {P2} NOT EQ ""
- setenv CWIS/{KAT}/{P1}/{P2}/{FILENAME} {MODE}
- ELSE
- IF {P1} NOT EQ ""
- setenv CWIS/{KAT}/{P1}/{FILENAME} {MODE}
- ELSE
- setenv CWIS/{KAT}/{FILENAME} {MODE}
- ENDIF
- ENDIF
- copy ENVDir:{FILENAME} ENVARCDir:{FILENAME}
- ENDIF
-